unit IncluirUnidade;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFormIUUnidade = class(TForm)
    LabelCliente: TLabel;
    EditNome: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    EditNK: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    xModo:string;
    xId:integer;
  end;

var
  FormIUUnidade: TFormIUUnidade;
  sql:string;

implementation

uses Principal;

{$R *.dfm}

procedure TFormIUUnidade.BitBtn1Click(Sender: TObject);
begin

    if xModo = 'I' then
       sql := 'insert into unidade (nome,nk) values (''' + EditNome.Text + ''',''' + EditNK.Text + ''')'
    else
       sql := 'update unidade set nome = ''' + EditNome.Text + ''' , nk = ''' + EditNK.Text + ''' where id = ' + trim(IntToStr(xId));


    FormPrincipal.QueryAtualiza.SQL.Clear;
    FormPrincipal.QueryAtualiza.SQL.add(sql);
    FormPrincipal.QueryAtualiza.ExecSQL;

    self.Close;

end;

procedure TFormIUUnidade.FormShow(Sender: TObject);
begin


    if xModo = 'U' then
    begin
       sql := 'select * from unidade where id = ' + trim(IntToStr(xId));

       FormPrincipal.QueryAux.SQL.Clear;
       FormPrincipal.QueryAux.SQL.add(sql);
       FormPrincipal.QueryAux.Close;
       FormPrincipal.QueryAux.Open;

       EditNome.Text :=  FormPrincipal.QueryAux.FieldByName('nome').AsString;
       EditNK.Text :=  FormPrincipal.QueryAux.FieldByName('nk').AsString;

    end;


end;

end.
